home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / ONE.DIMENSIONAL.MAN.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  133 lines
  1. 3  SPEED= 100
  2. 5  HOME 
  3. 10  GOSUB 950
  4. 20  PRINT "HERBERT"
  5. 30  GOSUB 950
  6. 40  PRINT "MARCUSE'S"
  7. 50  GOSUB 950
  8. 60  PRINT "BOOK,"
  9. 70  GOSUB 950
  10. 80  PRINT "'ONE"
  11. 90  GOSUB 950
  12. 100  PRINT "DIMENSIONAL"
  13. 110  GOSUB 950
  14. 120  PRINT "MAN'"
  15. 130  GOSUB 950
  16. 140  PRINT "IS"
  17. 150  GOSUB 950
  18. 160  PRINT "QUITE"
  19. 170  GOSUB 950
  20. 180  PRINT "THOUGHT"
  21. 190  GOSUB 950
  22. 200  PRINT "PROVOKING,"
  23. 210  GOSUB 950
  24. 220  PRINT "YET"
  25. 230  GOSUB 950
  26. 240  PRINT "SUFFERS,"
  27. 250  GOSUB 950
  28. 260  PRINT "AS"
  29. 270  GOSUB 950
  30. 280  PRINT "A"
  31. 290  GOSUB 950
  32. 300  PRINT "WHOLE,"
  33. 310  GOSUB 950
  34. 320  PRINT "FROM"
  35. 330  GOSUB 950
  36. 340  PRINT "A"
  37. 350  GOSUB 950
  38. 360  PRINT "LACK"
  39. 370  GOSUB 950
  40. 380  PRINT "OF"
  41. 390  GOSUB 950
  42. 400  PRINT "DEPTH."
  43. 410  GOSUB 950
  44. 420  PRINT "IT"
  45. 430  GOSUB 950
  46. 440  PRINT "SEEMS,"
  47. 450  GOSUB 950
  48. 460  PRINT "AT"
  49. 470  GOSUB 950
  50. 480  PRINT "TIMES,"
  51. 490  GOSUB 950
  52. 500  PRINT "THE"
  53. 510  GOSUB 950
  54. 520  PRINT "AUTHOR"
  55. 530  GOSUB 950
  56. 540  PRINT "GETS"
  57. 550  GOSUB 950
  58. 560  PRINT "LOCKED"
  59. 570  GOSUB 950
  60. 580  PRINT "INTO"
  61. 590  GOSUB 950
  62. 600  PRINT "A"
  63. 605  GOSUB 950
  64. 610  PRINT "LINEAR"
  65. 615  GOSUB 950
  66. 620  PRINT "APPROACH"
  67. 625  GOSUB 950
  68. 630  PRINT "TO"
  69. 635  GOSUB 950
  70. 640  PRINT "THE"
  71. 645  GOSUB 950
  72. 650  PRINT "SUBJECT."
  73. 655  GOSUB 950
  74. 660  PRINT "SOME"
  75. 665  GOSUB 950
  76. 670  PRINT "MIGHT"
  77. 675  GOSUB 950
  78. 680  PRINT "EVEN"
  79. 685  GOSUB 950
  80. 690  PRINT "ACCUSE"
  81. 695  GOSUB 950
  82. 700  PRINT "THE"
  83. 705  GOSUB 950
  84. 710  PRINT "AUTHOR"
  85. 715  GOSUB 950
  86. 720  PRINT "OF"
  87. 725  GOSUB 950
  88. 730  PRINT "TUNNEL"
  89. 735  GOSUB 950
  90. 740  PRINT "VISION."
  91. 745  GOSUB 950
  92. 750  PRINT "WHY"
  93. 755  GOSUB 950
  94. 760  PRINT "THIS"
  95. 765  GOSUB 950
  96. 770  PRINT "IS"
  97. 775  GOSUB 950
  98. 780  PRINT "SO"
  99. 785  GOSUB 950
  100. 790  PRINT "IS"
  101. 795  GOSUB 950
  102. 800  PRINT "NOT"
  103. 805  GOSUB 950
  104. 810  PRINT "EXACTLY"
  105. 815  GOSUB 950
  106. 820  PRINT "CLEAR."
  107. 825  GOSUB 950
  108. 830  PRINT "T"
  109. 835  GOSUB 950
  110. 840  PRINT "H"
  111. 845  GOSUB 950
  112. 850  PRINT "E"
  113. 855  GOSUB 950: GOSUB 950
  114. 860  PRINT "E"
  115. 865  GOSUB 950
  116. 870  PRINT "N"
  117. 875  GOSUB 950
  118. 880  PRINT "D."
  119. 890  GOSUB 950: GOSUB 950
  120. 910  PRINT "BY"
  121. 915  GOSUB 950
  122. 920  PRINT "PHIL"
  123. 925  GOSUB 950
  124. 930  PRINT "SHAPIRO"
  125. 935  GOSUB 950
  126. 940  PRINT "COPYRIGHT"
  127. 943  GOSUB 950
  128. 947  PRINT "1986"
  129. 949  END 
  130. 950  FOR D = 1 TO 300: NEXT D
  131. 970  HOME 
  132. 1000  HTAB 16: VTAB 12
  133. 1010  RETURN